home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a16.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  51 lines
  1. 1000 'A16.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:CLS
  3. 1020 L=200:PI=3.14159!
  4. 1030 '
  5. 1040 CHANTEI=1:C=1
  6. 1050 A$="☆☆☆ 円周上に長さの違う接線を描き重ねています｡ ☆☆☆"
  7. 1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  8. 1070 T1=TIME:S=1 
  9. 1080 FOR CC=1 TO 1
  10. 1090 HANKEI1=50:XTI1=50:HANKEI2=HANKEI1:XTI2=XTI1
  11. 1100   FOR T=0 TO 3
  12. 1110     FOR J=0 TO 360 STEP 10
  13. 1120       I=0
  14. 1130       GOSUB *CALK1
  15. 1140       GOSUB *CALK2
  16. 1150         FOR I=0 TO 360 STEP 120
  17. 1160           POINT (X,Y)
  18. 1170           GOSUB *CALK1
  19. 1180           LINE -(X,Y),PSET,C
  20. 1190           POINT (X2,Y2)
  21. 1200           GOSUB *CALK2
  22. 1210           LINE -(X2,Y2),PSET,C
  23. 1220         NEXT I
  24. 1230         S=S+1
  25. 1240     NEXT J
  26. 1250     HANKEI1=HANKEI1+50:XTI1=XTI1+50:HANKEI2=HANKEI1*3:XTI2=XTI1
  27. 1260     IF CHANTEI=1 THEN C=C+1
  28. 1270   NEXT T
  29. 1280   CHANTEI=0:C=0
  30. 1290 NEXT CC
  31. 1300 T2=TIME:T=T2-T1:S=2*S:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた接線の数--";S;"本" 
  32. 1310 GOTO 1480
  33. 1320 '
  34. 1330 *CALK1
  35. 1340  P =I/180*PI
  36. 1350  PP=J/180*PI
  37. 1360  A=400+HANKEI*COS(P)+L
  38. 1370  X=205+(XTI1*COS(PP)-HANKEI1*SIN(P)*SIN(PP))*L/A
  39. 1380  Y=230-(HANKEI2*SIN(P)*COS(PP)+XTI2*SIN(PP))*L/A
  40. 1390 RETURN
  41. 1400 '
  42. 1410 *CALK2
  43. 1420  P =I/180*PI
  44. 1430  PP=J/180*PI
  45. 1440  A=400+HANKEI*COS(P)+L
  46. 1450  X2=435+(XTI1*COS(PP)-HANKEI1*SIN(P)*SIN(PP))*L/A
  47. 1460  Y2=230-(HANKEI2*SIN(P)*COS(PP)+XTI2*SIN(PP))*L/A
  48. 1470 RETURN
  49. 1480 WAIT 100'
  50. 1490 '
  51.